/ Mac Power 1997 January / macpower199701.bin / AMUG / Programming_10 / ICPAppSource+ICprogKit / ICAppSourceKit 1.3.sit / ICAppSourceKit1.3 / ICFSSpecWhats.p

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 49 43 46 53 53 70 | 65 63 57 68 61 74 73 2e |..ICFSSp|ecWhats.|
|00000010| 70 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |p.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 57 49 | 45 01 00 00 00 00 00 00 |.TEXTCWI|E.......|
|00000050| 00 00 00 00 00 13 53 00 | 00 01 c8 ac c5 27 bd ac |......S.|.....'..|
|00000060| c5 27 bd 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.'......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b4 58 00 00 |........|.....X..|
|00000080| 75 6e 69 74 20 49 43 46 | 53 53 70 65 63 57 68 61 |unit ICF|SSpecWha|
|00000090| 74 73 3b 0d 0d 69 6e 74 | 65 72 66 61 63 65 0d 0d |ts;..int|erface..|
|000000a0| 09 75 73 65 73 0d 09 09 | 49 43 57 69 6e 64 6f 77 |.uses...|ICWindow|
|000000b0| 47 6c 6f 62 61 6c 73 3b | 0d 0d 09 66 75 6e 63 74 |Globals;|...funct|
|000000c0| 69 6f 6e 20 57 68 61 74 | 4f 70 65 6e 46 53 53 70 |ion What|OpenFSSp|
|000000d0| 65 63 20 28 77 74 3a 20 | 57 69 6e 64 6f 77 54 79 |ec (wt: |WindowTy|
|000000e0| 70 65 3b 20 69 74 65 6d | 3a 20 69 6e 74 65 67 65 |pe; item|: intege|
|000000f0| 72 29 3a 20 4f 53 45 72 | 72 3b 0d 09 66 75 6e 63 |r): OSEr|r;..func|
|00000100| 74 69 6f 6e 20 57 68 61 | 74 46 6c 75 73 68 46 53 |tion Wha|tFlushFS|
|00000110| 53 70 65 63 20 28 77 74 | 3a 20 57 69 6e 64 6f 77 |Spec (wt|: Window|
|00000120| 54 79 70 65 3b 20 69 74 | 65 6d 3a 20 69 6e 74 65 |Type; it|em: inte|
|00000130| 67 65 72 29 3a 20 4f 53 | 45 72 72 3b 0d 09 66 75 |ger): OS|Err;..fu|
|00000140| 6e 63 74 69 6f 6e 20 57 | 68 61 74 43 6c 69 63 6b |nction W|hatClick|
|00000150| 46 53 53 70 65 63 20 28 | 77 74 3a 20 57 69 6e 64 |FSSpec (|wt: Wind|
|00000160| 6f 77 54 79 70 65 3b 20 | 69 74 65 6d 3a 20 69 6e |owType; |item: in|
|00000170| 74 65 67 65 72 3b 20 65 | 72 3a 20 65 76 65 6e 74 |teger; e|r: event|
|00000180| 52 65 63 6f 72 64 29 3a | 20 4f 53 45 72 72 3b 0d |Record):| OSErr;.|
|00000190| 0d 69 6d 70 6c 65 6d 65 | 6e 74 61 74 69 6f 6e 0d |.impleme|ntation.|
|000001a0| 0d 09 75 73 65 73 0d 09 | 09 46 6f 6c 64 65 72 73 |..uses..|.Folders|
|000001b0| 2c 20 54 6f 6f 6c 55 74 | 69 6c 73 2c 20 44 69 61 |, ToolUt|ils, Dia|
|000001c0| 6c 6f 67 73 2c 20 41 6c | 69 61 73 65 73 2c 0d 0d |logs, Al|iases,..|
|000001d0| 09 09 49 43 54 79 70 65 | 73 2c 20 49 43 44 69 61 |..ICType|s, ICDia|
|000001e0| 6c 6f 67 73 2c 20 49 43 | 4d 69 73 63 53 75 62 73 |logs, IC|MiscSubs|
|000001f0| 2c 20 49 43 53 75 62 73 | 2c 20 49 43 41 50 49 2c |, ICSubs|, ICAPI,|
|00000200| 20 49 43 44 6f 63 75 6d | 65 6e 74 20 7b 58 7d 2c | ICDocum|ent {X},|
|00000210| 20 49 43 4b 65 79 73 2c | 20 49 43 47 6c 6f 62 61 | ICKeys,| ICGloba|
|00000220| 6c 73 2c 20 49 43 53 74 | 61 6e 64 61 72 64 46 69 |ls, ICSt|andardFi|
|00000230| 6c 65 3b 0d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 47 |le;...fu|nction G|
|00000240| 65 74 56 6f 6c 75 6d 65 | 53 74 75 66 66 20 28 6e |etVolume|Stuff (n|
|00000250| 61 6d 65 3a 20 73 74 72 | 33 31 3b 20 64 61 74 65 |ame: str|31; date|
|00000260| 3a 20 6c 6f 6e 67 49 6e | 74 3b 20 76 61 72 20 76 |: longIn|t; var v|
|00000270| 72 6e 3a 20 69 6e 74 65 | 67 65 72 29 3a 20 4f 53 |rn: inte|ger): OS|
|00000280| 45 72 72 3b 0d 09 09 76 | 61 72 0d 09 09 09 65 72 |Err;...v|ar....er|
|00000290| 72 3a 20 4f 53 45 72 72 | 3b 0d 09 09 09 70 62 3a |r: OSErr|;....pb:|
|000002a0| 20 48 50 61 72 61 6d 42 | 6c 6f 63 6b 52 65 63 3b | HParamB|lockRec;|
|000002b0| 0d 09 09 09 73 3a 20 73 | 74 72 32 35 35 3b 0d 09 |....s: s|tr255;..|
|000002c0| 09 09 70 61 73 73 2c 20 | 69 3a 20 69 6e 74 65 67 |..pass, |i: integ|
|000002d0| 65 72 3b 0d 09 62 65 67 | 69 6e 0d 09 09 66 6f 72 |er;..beg|in...for|
|000002e0| 20 70 61 73 73 20 3a 3d | 20 31 20 74 6f 20 32 20 | pass :=| 1 to 2 |
|000002f0| 64 6f 20 62 65 67 69 6e | 0d 09 09 09 69 20 3a 3d |do begin|....i :=|
|00000300| 20 31 3b 0d 09 09 09 77 | 68 69 6c 65 20 74 72 75 | 1;....w|hile tru|
|00000310| 65 20 64 6f 20 62 65 67 | 69 6e 0d 09 09 09 09 70 |e do beg|in.....p|
|00000320| 62 2e 69 6f 56 6f 6c 49 | 6e 64 65 78 20 3a 3d 20 |b.ioVolI|ndex := |
|00000330| 69 3b 0d 09 09 09 09 69 | 20 3a 3d 20 69 20 2b 20 |i;.....i| := i + |
|00000340| 31 3b 0d 09 09 09 09 70 | 62 2e 69 6f 4e 61 6d 65 |1;.....p|b.ioName|
|00000350| 50 74 72 20 3a 3d 20 40 | 73 3b 0d 09 09 09 09 73 |Ptr := @|s;.....s|
|00000360| 20 3a 3d 20 27 27 3b 0d | 09 09 09 09 65 72 72 20 | := '';.|....err |
|00000370| 3a 3d 20 50 42 47 65 74 | 56 49 6e 66 6f 53 79 6e |:= PBGet|VInfoSyn|
|00000380| 63 28 40 70 62 29 3b 0d | 09 09 09 09 69 66 20 65 |c(@pb);.|....if e|
|00000390| 72 72 20 3c 3e 20 6e 6f | 45 72 72 20 74 68 65 6e |rr <> no|Err then|
|000003a0| 20 62 65 67 69 6e 0d 09 | 09 09 09 09 6c 65 61 76 | begin..|....leav|
|000003b0| 65 3b 0d 09 09 09 09 65 | 6e 64 3b 0d 09 09 09 09 |e;.....e|nd;.....|
|000003c0| 69 66 20 49 55 45 71 75 | 61 6c 53 74 72 69 6e 67 |if IUEqu|alString|
|000003d0| 28 6e 61 6d 65 2c 20 73 | 29 20 3d 20 30 20 74 68 |(name, s|) = 0 th|
|000003e0| 65 6e 20 62 65 67 69 6e | 0d 09 09 09 09 09 69 66 |en begin|......if|
|000003f0| 20 28 70 61 73 73 20 3d | 20 32 29 20 6f 72 20 28 | (pass =| 2) or (|
|00000400| 70 62 2e 69 6f 56 43 72 | 44 61 74 65 20 3d 20 64 |pb.ioVCr|Date = d|
|00000410| 61 74 65 29 20 74 68 65 | 6e 20 62 65 67 69 6e 0d |ate) the|n begin.|
|00000420| 09 09 09 09 09 09 6c 65 | 61 76 65 3b 0d 09 09 09 |......le|ave;....|
|00000430| 09 09 65 6e 64 3b 0d 09 | 09 09 09 65 6e 64 3b 0d |..end;..|...end;.|
|00000440| 09 09 09 65 6e 64 3b 0d | 09 09 09 69 66 20 65 72 |...end;.|...if er|
|00000450| 72 20 3d 20 6e 6f 45 72 | 72 20 74 68 65 6e 20 62 |r = noEr|r then b|
|00000460| 65 67 69 6e 0d 09 09 09 | 09 6c 65 61 76 65 3b 0d |egin....|.leave;.|
|00000470| 09 09 09 65 6e 64 3b 0d | 09 09 65 6e 64 3b 0d 09 |...end;.|..end;..|
|00000480| 09 69 66 20 65 72 72 20 | 3d 20 6e 6f 45 72 72 20 |.if err |= noErr |
|00000490| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 09 76 72 |then beg|in....vr|
|000004a0| 6e 20 3a 3d 20 70 62 2e | 69 6f 56 52 65 66 4e 75 |n := pb.|ioVRefNu|
|000004b0| 6d 3b 0d 09 09 65 6e 64 | 3b 0d 09 09 47 65 74 56 |m;...end|;...GetV|
|000004c0| 6f 6c 75 6d 65 53 74 75 | 66 66 20 3a 3d 20 65 72 |olumeStu|ff := er|
|000004d0| 72 3b 0d 09 65 6e 64 3b | 0d 0d 09 66 75 6e 63 74 |r;..end;|...funct|
|000004e0| 69 6f 6e 20 57 68 61 74 | 4f 70 65 6e 46 53 53 70 |ion What|OpenFSSp|
|000004f0| 65 63 20 28 77 74 3a 20 | 57 69 6e 64 6f 77 54 79 |ec (wt: |WindowTy|
|00000500| 70 65 3b 20 69 74 65 6d | 3a 20 69 6e 74 65 67 65 |pe; item|: intege|
|00000510| 72 29 3a 20 4f 53 45 72 | 72 3b 0d 09 09 76 61 72 |r): OSEr|r;...var|
|00000520| 0d 09 09 09 73 70 65 63 | 3a 20 68 61 6e 64 6c 65 |....spec|: handle|
|00000530| 3b 0d 09 09 09 76 61 6c | 69 64 3a 20 62 6f 6f 6c |;....val|id: bool|
|00000540| 65 61 6e 3b 0d 09 09 09 | 6c 6f 65 3a 20 6c 6f 6e |ean;....|loe: lon|
|00000550| 67 49 6e 74 3b 0d 09 09 | 09 63 68 61 6e 67 65 64 |gInt;...|.changed|
|00000560| 3a 20 62 6f 6f 6c 65 61 | 6e 3b 0d 09 09 09 61 74 |: boolea|n;....at|
|00000570| 74 72 3a 20 6c 6f 6e 67 | 69 6e 74 3b 0d 09 09 09 |tr: long|int;....|
|00000580| 70 62 3a 20 43 49 6e 66 | 6f 50 42 52 65 63 3b 0d |pb: CInf|oPBRec;.|
|00000590| 09 09 09 6d 6f 64 69 66 | 69 65 64 3a 20 62 6f 6f |...modif|ied: boo|
|000005a0| 6c 65 61 6e 3b 0d 09 09 | 09 66 73 3a 20 46 53 53 |lean;...|.fs: FSS|
|000005b0| 70 65 63 3b 0d 09 62 65 | 67 69 6e 0d 09 09 76 61 |pec;..be|gin...va|
|000005c0| 6c 69 64 20 3a 3d 20 66 | 61 6c 73 65 3b 0d 09 09 |lid := f|alse;...|
|000005d0| 73 70 65 63 20 3a 3d 20 | 6e 69 6c 3b 0d 09 09 6d |spec := |nil;...m|
|000005e0| 6f 64 69 66 69 65 64 20 | 3a 3d 20 66 61 6c 73 65 |odified |:= false|
|000005f0| 3b 0d 09 09 69 66 20 49 | 43 47 65 74 50 72 65 66 |;...if I|CGetPref|
|00000600| 48 61 6e 64 6c 65 28 47 | 65 74 49 6e 73 74 61 6e |Handle(G|etInstan|
|00000610| 63 65 2c 20 77 69 6e 64 | 6f 77 69 6e 66 6f 5b 77 |ce, wind|owinfo[w|
|00000620| 74 5d 2e 69 74 65 6d 73 | 5b 69 74 65 6d 5d 5e 2e |t].items|[item]^.|
|00000630| 6b 65 79 2c 20 61 74 74 | 72 2c 20 73 70 65 63 29 |key, att|r, spec)|
|00000640| 20 3d 20 6e 6f 45 72 72 | 20 74 68 65 6e 20 62 65 | = noErr| then be|
|00000650| 67 69 6e 0d 09 09 09 76 | 61 6c 69 64 20 3a 3d 20 |gin....v|alid := |
|00000660| 74 72 75 65 3b 0d 09 09 | 65 6e 64 3b 0d 09 09 50 |true;...|end;...P|
|00000670| 72 6f 63 65 73 73 41 74 | 74 72 69 62 75 74 65 73 |rocessAt|tributes|
|00000680| 28 77 74 2c 20 69 74 65 | 6d 2c 20 61 74 74 72 29 |(wt, ite|m, attr)|
|00000690| 3b 0d 09 09 69 66 20 76 | 61 6c 69 64 20 26 20 28 |;...if v|alid & (|
|000006a0| 47 65 74 48 61 6e 64 6c | 65 53 69 7a 65 28 73 70 |GetHandl|eSize(sp|
|000006b0| 65 63 29 20 3c 20 53 69 | 7a 65 4f 66 28 49 43 46 |ec) < Si|zeOf(ICF|
|000006c0| 69 6c 65 53 70 65 63 29 | 29 20 74 68 65 6e 20 62 |ileSpec)|) then b|
|000006d0| 65 67 69 6e 0d 09 09 09 | 76 61 6c 69 64 20 3a 3d |egin....|valid :=|
|000006e0| 20 66 61 6c 73 65 3b 0d | 09 09 65 6e 64 3b 0d 09 | false;.|..end;..|
|000006f0| 09 69 66 20 76 61 6c 69 | 64 20 74 68 65 6e 20 62 |.if vali|d then b|
|00000700| 65 67 69 6e 0d 09 09 09 | 69 66 20 28 49 43 46 69 |egin....|if (ICFi|
|00000710| 6c 65 53 70 65 63 48 61 | 6e 64 6c 65 28 73 70 65 |leSpecHa|ndle(spe|
|00000720| 63 29 5e 5e 2e 61 6c 69 | 61 73 2e 61 6c 69 61 73 |c)^^.ali|as.alias|
|00000730| 53 69 7a 65 20 3d 20 30 | 29 20 6f 72 20 6e 6f 74 |Size = 0|) or not|
|00000740| 20 68 61 73 5f 61 6c 69 | 61 73 4d 67 72 20 74 68 | has_ali|asMgr th|
|00000750| 65 6e 20 62 65 67 69 6e | 0d 09 09 09 09 69 66 20 |en begin|.....if |
|00000760| 47 65 74 56 6f 6c 75 6d | 65 53 74 75 66 66 28 49 |GetVolum|eStuff(I|
|00000770| 43 46 69 6c 65 53 70 65 | 63 48 61 6e 64 6c 65 28 |CFileSpe|cHandle(|
|00000780| 73 70 65 63 29 5e 5e 2e | 76 6f 6c 5f 6e 61 6d 65 |spec)^^.|vol_name|
|00000790| 2c 20 49 43 46 69 6c 65 | 53 70 65 63 48 61 6e 64 |, ICFile|SpecHand|
|000007a0| 6c 65 28 73 70 65 63 29 | 5e 5e 2e 76 6f 6c 5f 63 |le(spec)|^^.vol_c|
|000007b0| 72 65 61 74 69 6f 6e 5f | 64 61 74 65 2c 20 66 73 |reation_|date, fs|
|000007c0| 2e 76 52 65 66 4e 75 6d | 29 20 3d 20 6e 6f 45 72 |.vRefNum|) = noEr|
|000007d0| 72 20 74 68 65 6e 20 62 | 65 67 69 6e 0d 09 09 09 |r then b|egin....|
|000007e0| 09 09 66 73 2e 70 61 72 | 49 44 20 3a 3d 20 49 43 |..fs.par|ID := IC|
|000007f0| 46 69 6c 65 53 70 65 63 | 48 61 6e 64 6c 65 28 73 |FileSpec|Handle(s|
|00000800| 70 65 63 29 5e 5e 2e 66 | 73 73 2e 70 61 72 49 44 |pec)^^.f|ss.parID|
|00000810| 3b 0d 09 09 09 09 09 66 | 73 2e 6e 61 6d 65 20 3a |;......f|s.name :|
|00000820| 3d 20 49 43 46 69 6c 65 | 53 70 65 63 48 61 6e 64 |= ICFile|SpecHand|
|00000830| 6c 65 28 73 70 65 63 29 | 5e 5e 2e 66 73 73 2e 6e |le(spec)|^^.fss.n|
|00000840| 61 6d 65 3b 0d 09 09 09 | 09 09 69 66 20 46 53 70 |ame;....|..if FSp|
|00000850| 47 65 74 43 61 74 49 6e | 66 6f 28 66 73 2c 20 30 |GetCatIn|fo(fs, 0|
|00000860| 2c 20 70 62 29 20 3c 3e | 20 6e 6f 45 72 72 20 74 |, pb) <>| noErr t|
|00000870| 68 65 6e 20 62 65 67 69 | 6e 0d 09 09 09 09 09 09 |hen begi|n.......|
|00000880| 6d 6f 64 69 66 69 65 64 | 20 3a 3d 20 74 72 75 65 |modified| := true|
|00000890| 3b 0d 09 09 09 09 09 09 | 76 61 6c 69 64 20 3a 3d |;.......|valid :=|
|000008a0| 20 66 61 6c 73 65 3b 0d | 09 09 09 09 09 65 6e 64 | false;.|.....end|
|000008b0| 3b 0d 09 09 09 09 65 6e | 64 20 65 6c 73 65 20 62 |;.....en|d else b|
|000008c0| 65 67 69 6e 0d 09 09 09 | 09 09 76 61 6c 69 64 20 |egin....|..valid |
|000008d0| 3a 3d 20 66 61 6c 73 65 | 3b 0d 09 09 09 09 65 6e |:= false|;.....en|
|000008e0| 64 3b 0d 09 09 09 65 6e | 64 20 65 6c 73 65 20 62 |d;....en|d else b|
|000008f0| 65 67 69 6e 0d 09 09 09 | 09 6c 6f 65 20 3a 3d 20 |egin....|.loe := |
|00000900| 4d 75 6e 67 65 72 28 73 | 70 65 63 2c 20 30 2c 20 |Munger(s|pec, 0, |
|00000910| 6e 69 6c 2c 20 53 69 7a | 65 4f 66 28 49 43 46 69 |nil, Siz|eOf(ICFi|
|00000920| 6c 65 53 70 65 63 29 20 | 2d 20 53 69 7a 65 4f 66 |leSpec) |- SizeOf|
|00000930| 28 41 6c 69 61 73 52 65 | 63 6f 72 64 29 2c 20 40 |(AliasRe|cord), @|
|00000940| 6c 6f 65 2c 20 30 29 3b | 0d 09 09 09 09 69 66 20 |loe, 0);|.....if |
|00000950| 52 65 73 6f 6c 76 65 41 | 6c 69 61 73 28 6e 69 6c |ResolveA|lias(nil|
|00000960| 2c 20 41 6c 69 61 73 48 | 61 6e 64 6c 65 28 73 70 |, AliasH|andle(sp|
|00000970| 65 63 29 2c 20 66 73 2c | 20 63 68 61 6e 67 65 64 |ec), fs,| changed|
|00000980| 29 20 3c 3e 20 6e 6f 45 | 72 72 20 74 68 65 6e 20 |) <> noE|rr then |
|00000990| 62 65 67 69 6e 0d 09 09 | 09 09 09 6d 6f 64 69 66 |begin...|...modif|
|000009a0| 69 65 64 20 3a 3d 20 74 | 72 75 65 3b 0d 09 09 09 |ied := t|rue;....|
|000009b0| 09 09 76 61 6c 69 64 20 | 3a 3d 20 66 61 6c 73 65 |..valid |:= false|
|000009c0| 3b 0d 09 09 09 09 65 6e | 64 3b 0d 09 09 09 65 6e |;.....en|d;....en|
|000009d0| 64 3b 0d 09 09 65 6e 64 | 3b 0d 09 09 69 66 20 6e |d;...end|;...if n|
|000009e0| 6f 74 20 76 61 6c 69 64 | 20 74 68 65 6e 20 62 65 |ot valid| then be|
|000009f0| 67 69 6e 0d 09 09 09 69 | 66 20 28 46 69 6e 64 46 |gin....i|f (FindF|
|00000a00| 6f 6c 64 65 72 28 6b 4f | 6e 53 79 73 74 65 6d 44 |older(kO|nSystemD|
|00000a10| 69 73 6b 2c 20 6b 44 65 | 73 6b 74 6f 70 46 6f 6c |isk, kDe|sktopFol|
|00000a20| 64 65 72 54 79 70 65 2c | 20 74 72 75 65 2c 20 66 |derType,| true, f|
|00000a30| 73 2e 76 52 65 66 4e 75 | 6d 2c 20 66 73 2e 70 61 |s.vRefNu|m, fs.pa|
|00000a40| 72 49 44 29 20 3d 20 6e | 6f 45 72 72 29 20 26 20 |rID) = n|oErr) & |
|00000a50| 28 46 53 70 47 65 74 43 | 61 74 49 6e 66 6f 28 66 |(FSpGetC|atInfo(f|
|00000a60| 73 2c 20 2d 31 2c 20 70 | 62 29 20 3d 20 6e 6f 45 |s, -1, p|b) = noE|
|00000a70| 72 72 29 20 74 68 65 6e | 20 62 65 67 69 6e 0d 09 |rr) then| begin..|
|00000a80| 09 09 09 66 73 2e 76 52 | 65 66 4e 75 6d 20 3a 3d |...fs.vR|efNum :=|
|00000a90| 20 70 62 2e 69 6f 56 52 | 65 66 4e 75 6d 3b 0d 09 | pb.ioVR|efNum;..|
|00000aa0| 09 09 09 66 73 2e 70 61 | 72 49 44 20 3a 3d 20 70 |...fs.pa|rID := p|
|00000ab0| 62 2e 69 6f 44 72 50 61 | 72 49 44 3b 0d 09 09 09 |b.ioDrPa|rID;....|
|00000ac0| 65 6e 64 20 65 6c 73 65 | 20 62 65 67 69 6e 0d 09 |end else| begin..|
|00000ad0| 09 09 09 66 73 2e 76 52 | 65 66 4e 75 6d 20 3a 3d |...fs.vR|efNum :=|
|00000ae0| 20 30 3b 0d 09 09 09 09 | 66 73 2e 70 61 72 49 44 | 0;.....|fs.parID|
|00000af0| 20 3a 3d 20 30 3b 0d 09 | 09 09 09 66 73 2e 6e 61 | := 0;..|...fs.na|
|00000b00| 6d 65 20 3a 3d 20 27 27 | 3b 0d 09 09 09 65 6e 64 |me := ''|;....end|
|00000b10| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 09 09 65 6e 64 |; (* if |*)...end|
|00000b20| 3b 0d 09 09 44 69 73 70 | 6f 73 65 48 61 6e 64 6c |;...Disp|oseHandl|
|00000b30| 65 28 73 70 65 63 29 3b | 0d 09 09 77 69 6e 64 6f |e(spec);|...windo|
|00000b40| 77 69 6e 66 6f 5b 77 74 | 5d 2e 69 74 65 6d 73 5b |winfo[wt|].items[|
|00000b50| 69 74 65 6d 5d 5e 2e 66 | 73 73 20 3a 3d 20 66 73 |item]^.f|ss := fs|
|00000b60| 3b 0d 09 09 77 69 6e 64 | 6f 77 69 6e 66 6f 5b 77 |;...wind|owinfo[w|
|00000b70| 74 5d 2e 69 74 65 6d 73 | 5b 69 74 65 6d 5d 5e 2e |t].items|[item]^.|
|00000b80| 6d 6f 64 69 66 69 65 64 | 20 3a 3d 20 6d 6f 64 69 |modified| := modi|
|00000b90| 66 69 65 64 3b 0d 09 09 | 53 65 74 44 43 74 6c 54 |fied;...|SetDCtlT|
|00000ba0| 69 74 6c 65 28 77 69 6e | 64 6f 77 69 6e 66 6f 5b |itle(win|dowinfo[|
|00000bb0| 77 74 5d 2e 77 69 6e 64 | 6f 77 2c 20 69 74 65 6d |wt].wind|ow, item|
|00000bc0| 2c 20 66 73 2e 6e 61 6d | 65 29 3b 0d 09 09 53 65 |, fs.nam|e);...Se|
|00000bd0| 74 44 43 74 6c 45 6e 61 | 62 6c 65 28 77 69 6e 64 |tDCtlEna|ble(wind|
|00000be0| 6f 77 69 6e 66 6f 5b 77 | 74 5d 2e 77 69 6e 64 6f |owinfo[w|t].windo|
|00000bf0| 77 2c 20 69 74 65 6d 2c | 20 6e 6f 74 20 49 73 4c |w, item,| not IsL|
|00000c00| 6f 63 6b 65 64 28 77 74 | 2c 20 69 74 65 6d 29 29 |ocked(wt|, item))|
|00000c10| 3b 0d 09 09 57 68 61 74 | 4f 70 65 6e 46 53 53 70 |;...What|OpenFSSp|
|00000c20| 65 63 20 3a 3d 20 6e 6f | 45 72 72 3b 0d 09 65 6e |ec := no|Err;..en|
|00000c30| 64 3b 20 28 2a 20 57 68 | 61 74 4f 70 65 6e 46 53 |d; (* Wh|atOpenFS|
|00000c40| 53 70 65 63 20 2a 29 0d | 0d 09 66 75 6e 63 74 69 |Spec *).|..functi|
|00000c50| 6f 6e 20 57 68 61 74 43 | 6c 69 63 6b 46 53 53 70 |on WhatC|lickFSSp|
|00000c60| 65 63 20 28 77 74 3a 20 | 57 69 6e 64 6f 77 54 79 |ec (wt: |WindowTy|
|00000c70| 70 65 3b 20 69 74 65 6d | 3a 20 69 6e 74 65 67 65 |pe; item|: intege|
|00000c80| 72 3b 20 65 72 3a 20 65 | 76 65 6e 74 52 65 63 6f |r; er: e|ventReco|
|00000c90| 72 64 29 3a 20 4f 53 45 | 72 72 3b 0d 09 09 76 61 |rd): OSE|rr;...va|
|00000ca0| 72 0d 09 09 09 65 72 72 | 3a 20 4f 53 45 72 72 3b |r....err|: OSErr;|
|00000cb0| 0d 09 09 09 66 73 3a 20 | 46 53 53 70 65 63 3b 0d |....fs: |FSSpec;.|
|00000cc0| 09 09 09 64 69 72 49 44 | 3a 20 6c 6f 6e 67 49 6e |...dirID|: longIn|
|00000cd0| 74 3b 0d 09 62 65 67 69 | 6e 0d 09 09 65 72 20 3a |t;..begi|n...er :|
|00000ce0| 3d 20 65 72 3b 20 7b 20 | 55 6e 75 73 65 64 20 7d |= er; { |Unused }|
|00000cf0| 0d 09 09 65 72 72 20 3a | 3d 20 49 43 53 74 61 6e |...err :|= ICStan|
|00000d00| 64 61 72 64 47 65 74 46 | 6f 6c 64 65 72 28 66 73 |dardGetF|older(fs|
|00000d10| 2c 20 64 69 72 49 44 29 | 3b 0d 09 09 69 66 20 65 |, dirID)|;...if e|
|00000d20| 72 72 20 3d 20 6e 6f 45 | 72 72 20 74 68 65 6e 20 |rr = noE|rr then |
|00000d30| 62 65 67 69 6e 0d 09 09 | 09 44 69 72 74 79 44 6f |begin...|.DirtyDo|
|00000d40| 63 75 6d 65 6e 74 3b 0d | 09 09 09 77 69 6e 64 6f |cument;.|...windo|
|00000d50| 77 69 6e 66 6f 5b 77 74 | 5d 2e 69 74 65 6d 73 5b |winfo[wt|].items[|
|00000d60| 69 74 65 6d 5d 5e 2e 66 | 73 73 2e 76 52 65 66 4e |item]^.f|ss.vRefN|
|00000d70| 75 6d 20 3a 3d 20 66 73 | 2e 76 52 65 66 4e 75 6d |um := fs|.vRefNum|
|00000d80| 3b 0d 09 09 09 77 69 6e | 64 6f 77 69 6e 66 6f 5b |;....win|dowinfo[|
|00000d90| 77 74 5d 2e 69 74 65 6d | 73 5b 69 74 65 6d 5d 5e |wt].item|s[item]^|
|00000da0| 2e 66 73 73 2e 70 61 72 | 49 44 20 3a 3d 20 64 69 |.fss.par|ID := di|
|00000db0| 72 49 44 3b 0d 09 09 09 | 77 69 6e 64 6f 77 69 6e |rID;....|windowin|
|00000dc0| 66 6f 5b 77 74 5d 2e 69 | 74 65 6d 73 5b 69 74 65 |fo[wt].i|tems[ite|
|00000dd0| 6d 5d 5e 2e 66 73 73 2e | 6e 61 6d 65 20 3a 3d 20 |m]^.fss.|name := |
|00000de0| 27 27 3b 0d 09 09 09 53 | 65 74 44 43 74 6c 54 69 |'';....S|etDCtlTi|
|00000df0| 74 6c 65 28 77 69 6e 64 | 6f 77 69 6e 66 6f 5b 77 |tle(wind|owinfo[w|
|00000e00| 74 5d 2e 77 69 6e 64 6f | 77 2c 20 69 74 65 6d 2c |t].windo|w, item,|
|00000e10| 20 66 73 2e 6e 61 6d 65 | 29 3b 0d 09 09 65 6e 64 | fs.name|);...end|
|00000e20| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 09 09 57 68 61 |; (* if |*)...Wha|
|00000e30| 74 43 6c 69 63 6b 46 53 | 53 70 65 63 20 3a 3d 20 |tClickFS|Spec := |
|00000e40| 65 72 72 3b 0d 09 65 6e | 64 3b 20 28 2a 20 57 68 |err;..en|d; (* Wh|
|00000e50| 61 74 43 6c 69 63 6b 46 | 53 53 70 65 63 20 2a 29 |atClickF|SSpec *)|
|00000e60| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 57 68 61 74 |...funct|ion What|
|00000e70| 46 6c 75 73 68 46 53 53 | 70 65 63 20 28 77 74 3a |FlushFSS|pec (wt:|
|00000e80| 20 57 69 6e 64 6f 77 54 | 79 70 65 3b 20 69 74 65 | WindowT|ype; ite|
|00000e90| 6d 3a 20 69 6e 74 65 67 | 65 72 29 3a 20 4f 53 45 |m: integ|er): OSE|
|00000ea0| 72 72 3b 0d 09 09 76 61 | 72 0d 09 09 09 61 6c 69 |rr;...va|r....ali|
|00000eb0| 61 73 3a 20 41 6c 69 61 | 73 48 61 6e 64 6c 65 3b |as: Alia|sHandle;|
|00000ec0| 0d 09 09 09 69 66 73 3a | 20 49 43 46 69 6c 65 53 |....ifs:| ICFileS|
|00000ed0| 70 65 63 3b 0d 09 09 09 | 70 62 3a 20 48 50 61 72 |pec;....|pb: HPar|
|00000ee0| 61 6d 42 6c 6f 63 6b 52 | 65 63 3b 0d 09 09 09 65 |amBlockR|ec;....e|
|00000ef0| 72 72 3a 20 4f 53 45 72 | 72 3b 0d 09 09 09 70 6f |rr: OSEr|r;....po|
|00000f00| 73 3a 20 6c 6f 6e 67 49 | 6e 74 3b 0d 09 62 65 67 |s: longI|nt;..beg|
|00000f10| 69 6e 0d 09 09 65 72 72 | 20 3a 3d 20 6e 6f 45 72 |in...err| := noEr|
|00000f20| 72 3b 0d 09 09 69 66 20 | 6e 6f 74 20 49 73 4c 6f |r;...if |not IsLo|
|00000f30| 63 6b 65 64 28 77 74 2c | 20 69 74 65 6d 29 20 74 |cked(wt,| item) t|
|00000f40| 68 65 6e 20 62 65 67 69 | 6e 0d 09 09 09 69 66 73 |hen begi|n....ifs|
|00000f50| 2e 66 73 73 20 3a 3d 20 | 77 69 6e 64 6f 77 69 6e |.fss := |windowin|
|00000f60| 66 6f 5b 77 74 5d 2e 69 | 74 65 6d 73 5b 69 74 65 |fo[wt].i|tems[ite|
|00000f70| 6d 5d 5e 2e 66 73 73 3b | 0d 09 09 09 61 6c 69 61 |m]^.fss;|....alia|
|00000f80| 73 20 3a 3d 20 6e 69 6c | 3b 0d 09 09 09 65 72 72 |s := nil|;....err|
|00000f90| 20 3a 3d 20 2d 31 3b 0d | 09 09 09 69 66 20 68 61 | := -1;.|...if ha|
|00000fa0| 73 5f 61 6c 69 61 73 4d | 67 72 20 74 68 65 6e 20 |s_aliasM|gr then |
|00000fb0| 62 65 67 69 6e 0d 09 09 | 09 09 65 72 72 20 3a 3d |begin...|..err :=|
|00000fc0| 20 4e 65 77 41 6c 69 61 | 73 28 6e 69 6c 2c 20 69 | NewAlia|s(nil, i|
|00000fd0| 66 73 2e 66 73 73 2c 20 | 61 6c 69 61 73 29 3b 0d |fs.fss, |alias);.|
|00000fe0| 09 09 09 65 6e 64 3b 0d | 09 09 09 69 66 20 65 72 |...end;.|...if er|
|00000ff0| 72 20 3c 3e 20 6e 6f 45 | 72 72 20 74 68 65 6e 20 |r <> noE|rr then |
|00001000| 62 65 67 69 6e 0d 09 09 | 09 09 61 6c 69 61 73 20 |begin...|..alias |
|00001010| 3a 3d 20 41 6c 69 61 73 | 48 61 6e 64 6c 65 28 4e |:= Alias|Handle(N|
|00001020| 65 77 48 61 6e 64 6c 65 | 28 73 69 7a 65 6f 66 28 |ewHandle|(sizeof(|
|00001030| 41 6c 69 61 73 52 65 63 | 6f 72 64 29 29 29 3b 0d |AliasRec|ord)));.|
|00001040| 09 09 09 09 65 72 72 20 | 3a 3d 20 4d 65 6d 45 72 |....err |:= MemEr|
|00001050| 72 6f 72 3b 0d 09 09 09 | 09 69 66 20 65 72 72 20 |ror;....|.if err |
|00001060| 3d 20 6e 6f 45 72 72 20 | 74 68 65 6e 20 62 65 67 |= noErr |then beg|
|00001070| 69 6e 0d 09 09 09 09 09 | 61 6c 69 61 73 5e 5e 2e |in......|alias^^.|
|00001080| 61 6c 69 61 73 53 69 7a | 65 20 3a 3d 20 30 3b 0d |aliasSiz|e := 0;.|
|00001090| 09 09 09 09 09 61 6c 69 | 61 73 5e 5e 2e 75 73 65 |.....ali|as^^.use|
|000010a0| 72 54 79 70 65 20 3a 3d | 20 4f 53 54 79 70 65 28 |rType :=| OSType(|
|000010b0| 30 29 3b 0d 09 09 09 09 | 65 6e 64 3b 20 28 2a 20 |0);.....|end; (* |
|000010c0| 69 66 20 2a 29 0d 09 09 | 09 65 6e 64 3b 20 28 2a |if *)...|.end; (*|
|000010d0| 20 69 66 20 2a 29 0d 09 | 0d 09 09 09 69 66 20 65 | if *)..|....if e|
|000010e0| 72 72 20 3d 20 6e 6f 45 | 72 72 20 74 68 65 6e 20 |rr = noE|rr then |
|000010f0| 62 65 67 69 6e 0d 09 09 | 09 09 70 62 2e 69 6f 56 |begin...|..pb.ioV|
|00001100| 52 65 66 4e 75 6d 20 3a | 3d 20 69 66 73 2e 66 73 |RefNum :|= ifs.fs|
|00001110| 73 2e 76 52 65 66 4e 75 | 6d 3b 0d 09 09 09 09 70 |s.vRefNu|m;.....p|
|00001120| 62 2e 69 6f 56 6f 6c 49 | 6e 64 65 78 20 3a 3d 20 |b.ioVolI|ndex := |
|00001130| 30 3b 0d 09 09 09 09 70 | 62 2e 69 6f 4e 61 6d 65 |0;.....p|b.ioName|
|00001140| 50 74 72 20 3a 3d 20 40 | 69 66 73 2e 76 6f 6c 5f |Ptr := @|ifs.vol_|
|00001150| 6e 61 6d 65 3b 0d 09 09 | 09 09 65 72 72 20 3a 3d |name;...|..err :=|
|00001160| 20 50 42 47 65 74 56 49 | 6e 66 6f 53 79 6e 63 28 | PBGetVI|nfoSync(|
|00001170| 40 70 62 29 3b 0d 09 09 | 09 09 69 66 20 65 72 72 |@pb);...|..if err|
|00001180| 20 3d 20 6e 6f 45 72 72 | 20 74 68 65 6e 20 62 65 | = noErr| then be|
|00001190| 67 69 6e 0d 09 09 09 09 | 09 69 66 73 2e 76 6f 6c |gin.....|.ifs.vol|
|000011a0| 5f 63 72 65 61 74 69 6f | 6e 5f 64 61 74 65 20 3a |_creatio|n_date :|
|000011b0| 3d 20 70 62 2e 69 6f 56 | 43 72 44 61 74 65 3b 0d |= pb.ioV|CrDate;.|
|000011c0| 09 09 09 09 65 6e 64 3b | 20 28 2a 20 69 66 20 2a |....end;| (* if *|
|000011d0| 29 0d 09 09 09 65 6e 64 | 3b 20 28 2a 20 69 66 20 |)....end|; (* if |
|000011e0| 2a 29 0d 09 0d 09 09 09 | 69 66 20 65 72 72 20 3d |*)......|if err =|
|000011f0| 20 6e 6f 45 72 72 20 74 | 68 65 6e 20 62 65 67 69 | noErr t|hen begi|
|00001200| 6e 0d 09 09 09 09 70 6f | 73 20 3a 3d 20 4d 75 6e |n.....po|s := Mun|
|00001210| 67 65 72 28 48 61 6e 64 | 6c 65 28 61 6c 69 61 73 |ger(Hand|le(alias|
|00001220| 29 2c 20 30 2c 20 6e 69 | 6c 2c 20 30 2c 20 40 69 |), 0, ni|l, 0, @i|
|00001230| 66 73 2c 20 53 69 7a 65 | 4f 66 28 49 43 46 69 6c |fs, Size|Of(ICFil|
|00001240| 65 53 70 65 63 29 20 2d | 20 53 69 7a 65 4f 66 28 |eSpec) -| SizeOf(|
|00001250| 41 6c 69 61 73 52 65 63 | 6f 72 64 29 29 3b 0d 09 |AliasRec|ord));..|
|00001260| 09 09 09 65 72 72 20 3a | 3d 20 4d 65 6d 45 72 72 |...err :|= MemErr|
|00001270| 6f 72 3b 0d 09 09 09 65 | 6e 64 3b 20 28 2a 20 69 |or;....e|nd; (* i|
|00001280| 66 20 2a 29 0d 09 0d 09 | 09 09 69 66 20 65 72 72 |f *)....|..if err|
|00001290| 20 3d 20 6e 6f 45 72 72 | 20 74 68 65 6e 20 62 65 | = noErr| then be|
|000012a0| 67 69 6e 0d 09 09 09 09 | 65 72 72 20 3a 3d 20 49 |gin.....|err := I|
|000012b0| 43 4d 61 70 45 72 72 28 | 49 43 53 65 74 50 72 65 |CMapErr(|ICSetPre|
|000012c0| 66 48 61 6e 64 6c 65 28 | 47 65 74 49 6e 73 74 61 |fHandle(|GetInsta|
|000012d0| 6e 63 65 2c 20 77 69 6e | 64 6f 77 69 6e 66 6f 5b |nce, win|dowinfo[|
|000012e0| 77 74 5d 2e 69 74 65 6d | 73 5b 69 74 65 6d 5d 5e |wt].item|s[item]^|
|000012f0| 2e 6b 65 79 2c 20 49 43 | 61 74 74 72 5f 6e 6f 5f |.key, IC|attr_no_|
|00001300| 63 68 61 6e 67 65 2c 20 | 48 61 6e 64 6c 65 28 61 |change, |Handle(a|
|00001310| 6c 69 61 73 29 29 29 3b | 0d 09 09 09 65 6e 64 3b |lias)));|....end;|
|00001320| 20 28 2a 20 69 66 20 2a | 29 0d 09 0d 09 09 09 69 | (* if *|)......i|
|00001330| 66 20 61 6c 69 61 73 20 | 3c 3e 20 6e 69 6c 20 74 |f alias |<> nil t|
|00001340| 68 65 6e 20 62 65 67 69 | 6e 0d 09 09 09 09 44 69 |hen begi|n.....Di|
|00001350| 73 70 6f 73 65 48 61 6e | 64 6c 65 28 48 61 6e 64 |sposeHan|dle(Hand|
|00001360| 6c 65 28 61 6c 69 61 73 | 29 29 3b 0d 09 09 09 65 |le(alias|));....e|
|00001370| 6e 64 3b 20 28 2a 20 69 | 66 20 2a 29 0d 09 09 65 |nd; (* i|f *)...e|
|00001380| 6e 64 3b 0d 09 09 57 68 | 61 74 46 6c 75 73 68 46 |nd;...Wh|atFlushF|
|00001390| 53 53 70 65 63 20 3a 3d | 20 65 72 72 3b 0d 09 65 |SSpec :=| err;..e|
|000013a0| 6e 64 3b 20 28 2a 20 57 | 68 61 74 46 6c 75 73 68 |nd; (* W|hatFlush|
|000013b0| 46 53 53 70 65 63 20 2a | 29 0d 0d 65 6e 64 2e 20 |FSSpec *|)..end. |
|000013c0| 28 2a 20 49 43 46 53 53 | 70 65 63 57 68 61 74 73 |(* ICFSS|pecWhats|
|000013d0| 20 2a 29 00 00 00 00 00 | 00 00 00 00 00 00 00 00 | *).....|........|
|000013e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001400| 00 00 01 00 00 00 01 76 | 00 00 00 76 00 00 00 52 |.......v|...v...R|
|00001410| 75 72 6e 73 3a 0d 23 09 | 09 53 74 61 74 75 73 20 |urns:.#.|.Status |
|00001420| 3d 20 30 20 2d 20 66 69 | 6c 65 73 20 6d 61 74 63 |= 0 - fi|les matc|
|00001430| 0f 49 43 46 53 53 70 65 | 63 57 68 61 74 73 2e 70 |.ICFSSpe|cWhats.p|
|00001440| 02 00 00 00 54 45 58 54 | 43 57 49 45 00 00 00 68 |....TEXT|CWIE...h|
|00001450| 00 00 54 45 58 54 43 57 | 49 45 00 00 00 68 00 80 |..TEXTCW|IE...h..|
|00001460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001470| 00 00 aa ff 95 02 00 00 | 13 53 00 00 01 c8 20 73 |........|.S.... s|
|00001480| 74 61 74 75 73 20 61 73 | 20 74 68 65 20 43 6f 6d |tatus as| the Com|
|00001490| 70 61 72 65 20 74 6f 6f | 6c 29 0d 23 0d 23 09 43 |pare too|l).#.#.C|
|000014a0| 6f 6d 70 61 72 65 46 69 | 6c 65 73 20 77 69 6c 6c |ompareFi|les will|
|000014b0| 20 63 6f 6d 70 61 72 65 | 20 74 77 6f 20 66 69 6c | compare| two fil|
|000014c0| 65 73 2c 20 61 6e 64 20 | 69 66 20 74 68 65 79 20 |es, and |if they |
|000014d0| 64 6f 6e 27 74 20 6d 61 | 74 63 68 20 69 74 20 77 |don't ma|tch it w|
|000014e0| 69 6c 6c 20 0d 23 09 62 | 72 69 6e 67 20 74 68 65 |ill .#.b|ring the|
|000014f0| 6d 20 62 6f 74 68 20 75 | 70 20 6f 6e 20 74 68 65 |m both u|p on the|
|00001500| 00 00 00 1e 00 3c 00 24 | 01 dd 02 3d 00 3c 00 24 |.....<.$|...=.<.$|
|00001510| 01 dd 02 3d 00 00 0d db | 00 00 00 00 00 00 00 00 |...=....|........|
|00001520| 00 00 00 00 00 48 00 09 | 47 65 6e 65 76 61 00 00 |.....H..|Geneva..|
|00001530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001540| 00 00 00 00 00 00 00 00 | 00 03 00 02 00 3e 00 3e |........|.....>.>|
|00001550| 01 dd 02 57 00 3e 00 3e | 01 dd 02 57 ae 16 a2 3c |...W.>.>|...W...<|
|00001560| 00 00 05 13 00 00 05 1b | 00 00 04 53 01 00 00 00 |........|...S....|
|00001570| 00 04 00 01 00 01 00 00 | 01 00 00 00 01 76 00 00 |........|.....v..|
|00001580| 00 76 00 00 00 52 00 5c | be d4 13 1a 00 00 00 1c |.v...R.\|........|
|00001590| 00 52 00 01 4d 50 53 52 | 00 01 00 12 4d 57 42 42 |.R..MPSR|....MWBB|
|000015a0| 00 00 00 2a 03 f0 ff ff | 00 00 00 00 00 00 00 00 |...*....|........|
|000015b0| 03 ed ff ff 00 00 00 22 | 00 00 00 00 03 f0 ff ff |......."|........|
|000015c0| 00 00 00 6e 00 00 00 00 | 00 00 00 00 00 00 00 00 |...n....|........|
|000015d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+